home *** CD-ROM | disk | FTP | other *** search
/ Internet Pratica / IPRAT_01.iso / ASP / ASPapp Portal / login.asp < prev    next >
Encoding:
Text File  |  2002-03-12  |  2.2 KB  |  117 lines
  1. <!-- #include file="i_utils.asp" -->
  2. <%
  3. %>
  4. <%
  5.     dim user_name
  6.     dim password
  7.     dim submit
  8.     dim registerlink
  9.     dim login_form_sql
  10.  
  11. sub request_login_form
  12. ''' request expected input parameters for this form
  13.     user_name = request("user_name")
  14.     password = request("password")
  15.     submit = request("submit")
  16.     registerlink = request("registerlink")
  17. end sub
  18.  
  19.  
  20. sub get_defaults_login_form
  21. ''' set default values for this form
  22.     submit = "LOGIN"
  23.     registerlink = "click here to register"
  24. end sub
  25.  
  26. sub db_select_login_form
  27.     login_form_sql = "SELECT " & _ 
  28.     "user_name, " & _ 
  29.     "password FROM Users" & _ 
  30.     ""
  31. end sub
  32.  
  33. do_search = request("do_search")
  34. ''' request form keys
  35. ''' request action
  36. action = lcase(request("action"))
  37. ''' action case handler
  38. select case action
  39.  
  40. case "login"
  41. '  verify and select the user from database
  42. do_login
  43.  
  44.  
  45. case "logout"
  46. '  end the user's current session
  47. session.abandon
  48.  
  49.  
  50. end select
  51.  
  52. '  no action was specified, so handle the default case(s)
  53. get_defaults_login_form
  54.  
  55. %>
  56.  
  57. <!-- #include file='i_header.asp' -->
  58. <!-- #include file='i_menu.asp' -->
  59.  
  60.  
  61. <%
  62. display_errs
  63. display_msg
  64. %>
  65.  
  66. <table class='headerTable'>
  67. <tr>
  68. <td class='headerTD'>
  69. Login
  70. </td>
  71. </tr>
  72. </table>
  73. <table  >
  74. <form name="login_form" action="" method="get" >
  75. <tr>
  76.     <td class='labelTD'>username</td>
  77.     <td class='dataTD' width='80%'>
  78.         <input type=text  name="user_name" size="" maxlength="" value="<% =user_name%>">
  79.     </td>
  80. </tr>
  81. <tr>
  82.     <td class='labelTD'>password</td>
  83.     <td class='dataTD' >
  84.         <input type=password name="password" size="" maxlength="" value="<% =password %>">
  85.     </td>
  86. </tr>
  87. <tr>
  88.     <td class='labelTD'></td>
  89.     <td class='dataTD' >
  90.         <input class=cmd  type=submit name="submit" value="LOGIN" >
  91.     </td>
  92. </tr>
  93. <tr>
  94.     <td class='labelTD'>new user?</td>
  95.     <td class='dataTD' >
  96.         <a href="register.asp"><% =registerlink %></a>
  97.     </td>
  98. </tr>
  99. <input type=hidden name="action" value="login">
  100.  
  101. </form>
  102. </table>
  103.  
  104.  
  105.  
  106. <!-- #include file=i_footer.asp -->
  107.  
  108.  
  109. <%
  110. ':: assure that any db resources are freed
  111. on error resume next
  112. rs.Close
  113. set rs = NOTHING
  114. cn.Close
  115. set cn = NOTHING
  116. user_cn.Close
  117. set user_cn = NOTHING
  118. on error goto 0
  119. %>
  120.